Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/misc/samples2/wallpapr.frm

Visual Basic Form | 1995-07-24 | 1.8 KB | 47 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Form1"
   ClientHeight    =   5820
   ClientLeft      =   1095
   ClientTop       =   1770
   ClientWidth     =   7365
   Height          =   6510
   Left            =   1035
   LinkTopic       =   "Form1"
   ScaleHeight     =   5820
   ScaleWidth      =   7365
   Top             =   1140
   Width           =   7485
   Begin CommandButton Command1
      Caption         =   "Change Wallpaper"
      Height          =   495
      Left            =   3075
      TabIndex        =   0
      Top             =   2670
      Width           =   2100
   End
   Begin Menu mnuExit
      Caption         =   "Exit"
   End
Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uparam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
Declare Function WriteProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String) As Integer
Declare Function GetProfileInt Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer) As Integer
Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
Const SPIF_UPDATEINIFILE = &H1
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Sub Command1_Click ()
    'Assign the filename of the wallpaper you want to use
    filename$ = "c:\windows\castle.bmp"
    'Change the wallpaper
    X% = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, filename$, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    'Wait for Windows to process change and update win.ini
    DoEvents
End Sub
Sub Form_Unload (Cancel As Integer)
    End
End Sub
Sub mnuExit_Click ()
    Unload Me
End Sub